N 
— 
=) 


J 14 


**F ILE**1D**SYSASSIGN 


GGGGGGG6G 
GG6GGG6G66 


a “oo 
mw NAWNnM 
mn MMmOwWww 
nw mn mn 
mn mw nw 
mn nw nw 
mn mw mw 
wn mn nw 
Www wm wn 
MMwnnw nn 
MMMM nn 
mw nnn 
ww Onnnw 
mw nn nw 
mw mw nw 
wn mn ww 
mn wn mn 
wn wn ww 
mm nn ww 
MvNwnnm ww 
MMMM mn 


222222222222 


222222222222 


nn Ann 
nn YNNMN 
nn nn nn 
nn own nn 
ann nn nn 
nn nn nn 
nn nn nn 
nn nn nn 
nnwnn nn 
NNNM nn 
tat ot ae 
>> >> 
De 
>> 
>> >> > > > > 
>>> > > > > > 
Soe 
>> 
>> ee 
>> >> 
ww ynuvn 
nn NNN 
nn nn nn 
nn ann nn 
nn "nn nn 
nn nn nn 
aon "nn nn 
wn nn nn 
nnn nn 
YynNnN nn 


nn MWnn 
nw Mnn 
nw “nn 
nn nw 
wn nn 
own nn 
nw nn 
ann wn 
AMMnM 
Wn 


— 


On Od Od Og Od One Og Oy Oe Od Oy Oe 


——, 
— 


(ER Ro beg Oey Pe ed Beg Se Og Og Gang Gee BG 


_— 
—o— 


ae 
oe 


LLLLLLLLLL 
LLLLLLLLLL 


Table of ‘contents 


i 


° 
tt 


$1 


st 


14 
~ SYSTEM SERVICE ASSIGN 1/0 CHANNEL 


TE PLU CESSPECLEIED. 


16-SEP-1984 01:40:07 VAX/VMS Macro v04-00 


Page 


PRrehenen sees  a 


ecoooocececooeoe<s&o2z 


: 
| 
| 


~ SYSTEM SERVICE ASSIGN 1/0 CHANNEL 19736-1388 }: $8: gf rte Macro V 


-00 ° 
SYS ERCTeTERSerenemar:1 aM Gd, 


R86 TITLE §YSASSIGN = SYSTEM SERVICE ASSIGN 1/0 CHANNEL 
yi *. 
{ 6 : FRAAAKHAKK HAHAHAHA TEAK AAAAAAARAAAAAARAAeReAeeeAeeeeeeeeeeeTeLeReTeLeeeTe 
JUUYU e 
000 s COPYRIGHT c) 1978, 1980, 1982, 1984 8 ‘ 
000 + DIGITA T-EORPORATION, "MAYNARD. MASSACHUSETTS. ‘ 
d00¢ Bit A C RIGHTS RESERVED. ‘ 
' ® 
0000 «11. :* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
9000 1g Es ONLY IN ACCORDANCE WITH. TH OF SUCH tIcENs SE AND WITH THE 
900013 is INCLUSION OVE COPYRIGHT NOTIC FOR ANY OTHER 
000014 :* COPIES THEREOF RAY NO BE PROVIDED OR OTHE RWISE oT AVAILABLE TO ANY 
1000 «15 i# QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREGY 
00001 is TRANSFERRED. ° 
9000 18 is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
D000 «19 §* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT © 
0000 ° CORPORATION. ; 
JUUYU * 
000 * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
d00¢ * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ; 
; ; ; s nubbieienanneabhinaieniniabnadnbeemeesestbennamutaseniabeecsdensbelsnnsent 


D. N. CUTLER 25-AUG-76 
SYSTEM SERVICE ASSIGN I/0 CHANNEL 
MODIFIED BY: 
V03-025 LMP0274 Mark Pilan ant 11-Jul-1984 9:27 
Fix a bug sntroduied in LMPO ¢ { that caused read access to be 
apg: to assign a channel to a shared device. 


v03-024 KPLO00 Peter Lieberwirth a gab ve 
Fi ipeeRsst with remote channel assignment introduced 


+++ 


SSS5E 
DOOCOC 


SOSe¢ 


UU 

1000 vO3-023 TMKOQ01 Todd M. Katz 28-Apr-1984 

5000 Eliminate the SLOGDEF data definitions. 

00¢ v03-022 KPL0002 Peter Lieberwirth 24-Apr-1984 

5000 Fix problems with remote device assignment introduced in 
U 
‘ 


e=—ss 


v03-021 RKS0021 RICK SP Vy Jo-rn-190 
4 problem in assign w shadow set un 
Add support for physical terminal a at rect ion to 
a@ logical UCB when DEVSV_RED is set in DEVCHA 


v03-020 ert 0001 eter Lieberwirth 9- pth 
- If the high bit nm the ACMODE byte is set 
translate the logical name, because RMS Kw, did. 


S>O°O°COSC 
+ 


Soc 


SOc 
= 


~oL+ 
PUPP E® BB PLES 


Se 
NA AL WN @§ OOD NAME WIN 0 OD NONE WWIN OOD NA NEW  O OO VNOA UNE WH OOO VNOM 


sis > Seon Sone sass 1 cue” MESES the ATL 


aa ae a nt nt a et dt 


+O O09 0909 09 09 09 09 09 O98 INI NI INNS 


MF wn— SSSA E AN SSS SR ee SSS NSO RANA SSSIF- 


2. Yee LNMSSEARCH_ONE to translate the remote device name 
locate a k a KRP“to contain the equivlence str ng since 255 
byte ch kernel stack to use. Recursively 
translate. the ogical name. 


3. ye en as the maximum logical name recursion 


v03-019 ait Mark Pilant 30-Mar-1984 15:38 
4. asa" e shee owntiic to ORBSL MOUNER and UCBSW_VPROT to 
v03-018 ncc0399 Andrew C. Goldstein 24-Feb-1984 21:42 


rack 1/0 database search and interlock rewrite; 
Soeous generic assign feature 


v03-017 EMD0045 Ellen M. Dusseault 1=F eb-1984 
Add check for phys 9 io privilege (phy_ io) if device 
is a shadow set member 


v03-016 LMP0185 Mark Pilant, 1-Feb-1984 13:49 
Add support for ll ACLs. 
v03-015 TCMO0006 rudy C. Matthews 18-Jan-1984 


pevert 38 sss _NOTOUEUED” status mee SENQ as sss _DEVALLOC. 
4 wine means that the device is allocated elsewhere in 
uster. 


v03-014 TCMO00S Trudy C. Matthews 7-0c t-1983 
Only take out a lock” on the device if the system is 
currently actively participating {n a cluster. 


v03-013 TCM0004 Trudy C. Matthews 12-Sep-1983 
Only syne out a lock on the device if the eyaten is a member 
cluster. 


v03-012 TCM0003 over g: Matthews 16-Jun-1983 
Return status tran EXESLOCK speY rather than overwriting it 
wren ss preva Loc. when we fail to oetain the lock. Also 
use input reg over F R fo ptonal exrste LOCK ~pey bi t we're 
not interested he lock value block bility to 
fequess 8 generic } channel. ty re mode from 
to CR. 
v03-011 TCM0002 C. Matthews 66-May-1983 
Allocate the yee. a he local system while taking out the 
ypteroy de lock. This is to disallow changes o the UCB 
hile the locking code executes (at IPL thout the 
0 Scere mutex). 


C 
Al 
: 
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T 
¢ 
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v03-010 ae 091 Trudy C. Matthews 13-May-1198 
If this is the tirst y SASSIGN to a cluster-wi > devic 
take out a cluster-wide lock showing that this device’ has active 


channels. 


v03-009 JLV0240 Jake Noy 11-APR-1983 
Prevent user with SHARE. privilege from becoming owner 


ee} 
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of an already owned device. 


v03-008 ROW0165 Ralph 0 Weter em ee tyes 
Fix ¢ oned uca log ¢ to debit BYTCNT before §8 Att ng th 
DUCE routine, a o cred et 8 BYTC the 
CLONEDUCB routine vetos the ng: ie nge cloned UCB josie 
to not set put PCBSL_PID in Ge8se 2. f the DEVSM_SHR bit is 
set in UCBS \BEVCHAR™ of the cloned UCB 


v03-007 JLV0230 Veowey 24-F EB-1983 
Add use of new shane privilege to allow assignment of 
channel to an allocated non-sharable device. 


2ONOOOSS 


v03-006 DMwW4009 DMWalp 17-Nov-1982 
y Recoded call internal’ call to S$TRNLOG to be external. 
f vO3-005 Row0138 8-NOV-1982 


2s 


SSSOSSSSSSSSSOSSOSOSOOS 


Add to UCB Hens, 2 goty to mailbox d eyice ce shores tectette 

uite _puenes ¢ settin eat be sevice status b DELMBX when 
DEVS is set in UCB VCHAR,. Th 18 dup carte in source 
the ieee 4 made to the last s-¥ systes images. The source 
change is being made to ty DRIVER te track i F x releases 


and still work on the base systems. Once this need is 
no Longer present, this dev +4 dependent function can be 
remove 
Q v03-004 ROW0132 Ralph 0. Ww Weber 13-OCT-1982 
Correct call to river s CLONEDUCB routine to conform with 
specification. 


v03-003 mowote? Ralph 0. Weber 4-0CT-1982 
ke ghanges required A use | pe UCB creation routines in 

UCBCREDEL L. of NETAS netork assignment to cloning assi pane 
with toot 2 x er iviledge iff DEVSM_NET is set 
UCBSL_DEV Rewrite and modernize caning ng as ignment. 
Eliminate — call to TEST_MAILBOX in ctening ace tennent 
code path since all that is réally desired the R6 result of 
the previous call and R6 is preserved by the cloning 
see code. 

v03-002 K g0¢ thleen D. Morse 28-Jun-1982 

Added DEVDEF a fixed comments. 


v03-001 PHLO101 Peter H. Lipman 21-Jun-1982 
$Q10W now synchronizes the EFN and IOSB parameters 
correctly. Eliminate the synchronization code here. 
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LIBRARY CALLS 


ece.e 
ea 
o 
@ 
oO 


OFFSETS 
OCK OFFSETS 


cc ee ee ce ce ee ee ee me ee ce ee ee ee ee ed ed od dd dd od dd ed od dD 
SSDP DPD DDD DADO. TTT BE BS BS BBB BBE ANI II IRON Ss 
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;DRIVER DISPATCH TABLE 
3D VICE TYPE CoE ES 
DEF / TION CODES 
[DEF I Ft TS 
§ sDEFI ot FSE 
[DEFINE LOCK R Sym@ot s 
[DEFINE LOGICAL OCK OFFSETS 
1 [DEF OGICAL BLOCK FFSETS 
1 [DEF CT's Ri BLOCK OFFSETS 
1 DEF cB eser 
1 TDEFINE PR ss REGISTERS 
1 7D Fl PRIVIL GE a1 
1 DEF sy TEM STATUS VALUES 
1 [DEFINE TE NAL SP SPECIFL UCB FIELDS 
1 [DEF I ue FSETS 
[DEFINE VECTOR OFFSETS 
189 ; 
! 3; LOCAL SYMBOLS 
19 } ARGUMENT LIST OFFSET DEFINITIONS 
194 . 
195 DEVNAM=4 ADDRESS OF DEVICE NAME STRING DESCRIPTOR 
196 CHAN=8 :ADDR $$ TO STORE ASSIGNED CHANNEL NUMBER 
197 ACMODE=1 ACCESS MODE 
198 MBXNAM= 1 TADDRESS OF MAILBOX NAME STRING DESCRIPTOR 
$ STACK LOCAL STORAGE SYMBOL 
: : SOFFSET O,NEGATIVE,<- 
MAXACMODE> ;MAMIMIZED ACCESS MODE 
‘ MAXACMODE : 
: LOCAL DATA 
10 .PSECT YSEXEPAGED 
18 
13 LNA_TBL: : 
49 66 26 4D 4E 4C 90009008"9106 9000" 14 -ASCID "“'LNMSFILE_DEV ;LOGICAL NAME TABLE FOR DEVICES 
15 
5445 4E SF 0 HE NETNAM: .ASCIIL /_NET/ SNETWORK DEVICE NAME 
0 17 NETEND: SREFERENCE LABEL 
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ASSIGN I/ SYS.SRCISYSASSIGN.MAR; 1 


«SBTTL ASSIGN 1/0 CHANNEL 
; EXESASSIGN = ASSIGN 1/0 CHANNEL ; 
; rs ehyic PROVIDES CAPABILITY TO ASSIGN A DEVICE TO AN 1/0 CHANNE 
TABL isu net Nees Saat Evic ipLoce L a5) AND CONTR NFORMATION IN THe : 
t ASSO ATED CHAN Secu Sent ro fae atiiont 
td IED viicn ut ONee UNSOL CITED INPUT SENT TO THE ASSIGNED 


NO 


INPUTS: 


DEVNAM (AP) 
CHAN(AP) 
ACMODE (AP) 


I 

3 0 oe ASSIGNED 0. 

YTE SET MEANS DON'T TRANSLATE 

NAME STRING DESCRIPTOR (ZERO IMPLIES 


LOG +o , 
MBXNAM(AP) = +4) lad MAILBO 
NONE 


R4 = CURRENT PROCESS PCB ADDRESS. 
OUTPUTS: 
RO LOW BIT CLEAR INDICATES FAILURE TO ASSIGN CHANNEL TO DEVICE. 
RO = SS$ acy ig = DEVICE NAME STRING, DEVICE Alan STRING 
BESCRIPTOR MAILBOX NAME STRING, OR MAILBOX NAME 
STRING DESCRI 
MODE, OR C 
ACCESS MODE. 
RO = SS$_DEVALLOC - DEVICE ALLOCATED TO ANOTHER PROCESS. 


RO = soca Ht + ~ SPECIFIED MAILBOX DEVICE IS NOT A 


RO = SS$_EXQUOTA = PROCESS HAS INSUFFICIENT BUFFER QUOTA TO 
ALLOCATE NETWORK UCB. 


RO = SSS_INSFMEM = SUFFICI 
EXIST TO ALLOCAT 


RO = SSS OW td er bev 
ALID CHARACT 
DESCRIPTOR SPECI 


RO = SS$_IVLOGNAM = ZERO OR GREATER THAN MAXIMUM LENGTH 
BEVICE OR MAILBOX NAME STRING SPECIFIED. 


RO = TOOMANYLNAM = ITERATION LIMIT ON LOGICAL NAME 
SS TRANSCATION EXCEEDED. 


RO = SS$_NOJOCHAN = NO 1/0 CHANNEL IS AVAILABLE FOR ASSIGNMENT. 


RO = SS$_NOPRIV = PROCESS DOES NOT HAVE PRIVILEGE TO CREATE 
NETWORK UCB OR DOES NOT HAVE PRIVILEGE TO ALLOCATE 


SOOO OOO OOC OOOO ODOOOOODOOOOOS 


SOc 


2¢ 


2s 


a 


IPTOR CANNOT BE READ BY TACALLING ACCESS 
NUMBER CANNOT BE 


>.>. 


a a a et a a a a es a a a a 2s a a 4 a a tt 


N BY CALLING 


2s 


2s 


a 


22 oo oS oS SSS oS SS Soo eoes 


SOOO Ooo Oooo vcvoco OC vo dcQOowooqonocVcjnc 


PUPVPVDPUSUSVSVSISI EB EEE 


MSW —OW0e WIS ODNAU EW OOD NA NEW O ODO 


ENT whee te DYNAMIC MEMORY DOES NOT 
NETWORK UCB. 
OR MAILBOX NAME STRING CONTAINS 


C 
E 
cE 

aT OR NO DEVICE NAME STRING 
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voe-000™ isSTELET SEEAAShet S81 170 cmd” gsgtage gytgsoy yanrvms taere YAIR, Pee, 


THE DEVICE. 


001 i 
Af 1 . 
. e 
601 ; RO = SS$_NOSUCHDEV = SPECIFIED DEVICE OR MAILBOX DOES NOT 
r 18 879 exist ON MOST SYSTER. 
r ; RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
001 ; RO = SS$_REMOTE = NORMAL COMPLETION, ASSIGNMENT COMPLETED 
i 4 : ON REMOTE SYSTEM. 
J oO 
001 ; RO = $S$_NORMAL = NORMAL COMPLETION, ASSIGNMENT COMPLETED 
001 ; ON HOST SYSTEM. 
J 6 
y § ; RO = SS$_DEVACTIVE = MAILBOX ALREADY ASSOCIATED WITH DEVICE 
001 91° 
OFFC 4 1 9 -ENTRY EXESASSIGN, “M<R2,R3,R4,R5,R6,R7,RB,RI,RI0,R11> 
E 04 OO1A 29 CLRL = (SP) 7SPACE FOR STACK LOCAL 
$8 O08 AC 00 001 94 VL CHANCAP), R11 7GET ADDRESS TO STORE CHANNEL NUMBER 
95 IFNOWRT #2,(R11), 308 SCAN CHANNEL NUMBER BE WRITTEN? 
68 B4 % CLRW = (RI1) 7CLEAR CHANNEL NUMBER IN CASE OF ERROR 
SA 10 AC 09 9 VL XNAMCAP) R10 SGET ADDRESS OF MAILBOX NAME DESCRIPTOR 
oC 1 .. 2 BEQL 108 SIF EQL NO MAILBOX SPECIFIED 
IFNORD #8, (R10), 30S [CAN MAILBOX DESCRIPTOR BE READ? 
é 7 mova = (R10), = §P) ;COPY MAILBOX NAME DESCRIPTOR 
3A E p HOVE SP,R10 7SET ADDRESS OF MAILBOX NAME DESCRIPTOR 
50 0144 &F A ; 10$ MOVZWL #SS$_IVDEVNAM, :SET INVALID DEVICE NAME STATUS 
AC D F MOVL p VNAMCAP) ,RO 7GET ADDRESS OF DEVICE NAME DESCRIPTOR 
19 «1 : 4 BEQL $ TIF EQL NO DEVICE SPECIFIED 
004 5 IFNORD #8, (R9),30$ SCAN DEVICE NAME DESCRIPTOR BE READ? 
50 OC AC 02 F 2048 ¢ XTZV #0. #2, ,ACMODE (AP) ,RO GET SPECIFIED ACCESS MODE 
FFAC’ SBW 3s EXE SMAXACMODE :MAXIMIZE ACCESS MODE 
FO AD 5 p 4 MOVL RO, MAXACMODE (FP) SSAVE MAXIMIZED ACCESS MODE 
FFAS* g BSBU LOtSFF CHAN [FIND FREE 1/0 CHANNEL 
08 5 Of ; ; BLBS RO, FREECHAN [IF LBS FREE 1/0 CHANNEL FOUND 
’ : Py 
50 oc 3 0055 1 te MOVZWL #SS$_ACCVIO,RO [SET ACCESS VIOLATION STATUS 
a 
0¢ 1 : IF THE CALLER SETS THE HIGH BIT IN THE ACMODE BYTE, IT IS INTERPRETED HERE 
oC 17 : AS A FLAG INDICATING IT IS UNNECESSARY TO TRANSLATE THE LOGICAL NAME BECAUSE 
00¢ t + THE CALLER ALREADY HAS. 
ENABL LSB 
010c—s 31 3 0s: BRW $ SUNLOCK DATABASE AND RETURN BRANCH AID 
FREECHAN: [FREE CHANNEL FOUND 
57 51 4 MOVa =e R17 SAVE CHANNEL AND CCB ADDRESS 
FF94" 5 BSBW © SCHS TOLOCKW it CK 1/0 DATA BASE FOR WRITE ACCESS 
g2 4 : BSBW Test MAILBOX STEST IF MAILBOX SPECIFIED 
F1 50 BLBC =—_—«aRO, 0 :1F LBC SEARCH FAILUnE 
S52 41 8F 9A : MOVZBL #I1OCSM_PHY!IOCSM_ANY,R2 :PHYSIC DEVICE NO CHECKS, NO LNM MODE 
OC AC TSTB ACRODE TAP) [HIGH BIT SET IB ICATES NO $TRNLNM TO DO 
1 2 BGEQ Ss 3 SBRANCH IF MUST TRANSLATE LOGICAL 
00 52 9 € BBSS #LOCSV_NO_TRANS .R2,38 [TELL JOCSTRANDEVNAM NOT TO DO STRNLNM 
9 D 2 38: MOVL  R9,R1 [SET ADDRESS OF DEVICE NAME DESCRIPTOR 


15 ! 
voe-000 isETELET SEEULGhet S810" 170 comme” — rgesepatoee 61-4867 yang BacceaAOAOe Pome, v0 


008 CLRL ORS OcK y 
vy he BR ieee bint Pat TE 
05 3¢ Al 08 BBC —-$“FDEVSV_RED,UCBSL_DEVCHARE ATS Rr rénnina, iF OT REDIRECTED 
51 000 ¢1 08 MOVL - UCBSL_TT_LOGUCB(R1),R1 ; P ROTSIEA ASSOCIATED LOGICAL TTY UCB 
2: 


; DEVICE FOUND 


+ 
+ 
I 
‘ 
5 1 fi 4$ MOVL = RIR DRESS OF DEVICE UCB 
D 38 A 105 4 BBS sci bevy PL.UCBS$L_D vein Age 71 SET, SPOOLED DEVICE 
CA 108 4 BBS “#DEVSV~SSM_UCBSL_DEVCHAR2(R5) .68. : If (set. shadow set member 
14 64 A BBC 5* sce BSV- TEMPLATE, = : Branch if this ss ignment is not 
10 UCBSL_STS(RS), LOCAL ; to @ cloned devic 
pors 0 4 BR LONE =UCé ; Else, brach to elene the uCcB. 
¢ $$: BW ; spooled device 
+ 3 
' IFPRIV PHY_IO,LOCAL 3; Must have phy_io priv, if shadow set membe 
50 2884 8F oC : MOVZWL e538. NOPHY_10,RO ; Exit with Shysical. io priv error 
0088 4 : BRW 3; Unlock 1/0 database 
; LOCAL ASSIGNMENT 
LOCAL SLOCAL ASSIGNMENT 
50 2C AS MOVL YCBSL_PID(RS) .RO [GET PROCESS 1D OF OWNER 
1 BEQL $ SIF EQL DEVICE NOT ALLOCATED 
51 54 MOVL R4,R1 :COPY PROCESS PCB ADDRESS 
60 Al 30 10$: CHPL RO, PCBSL_PID(R1) ttt MATCH? 
51 1€ al MOV ZL pcBSL_ OWNER(R1),R1 :GET eGREATOR PROCESS INDEX 
51 00000000" FF 41 MOVE wages PCBVECCR1],R1 ;GET ADDRESS OF CREATOR PCB 
20S: IFPRIV SHARE, 5 IBRANCH IF SHARE PRIV ENABLED 
50 0840 8F WL #SSS_ bevALLoc, RO iE! DEVICE ALREADY ALLOCATED 
30$: BRW 
§ > DEVICE SEARCH FAILURE 
50 O8FO 8F 40$:  CMPW #S$$_NONLOCAL ,RO ;REMOTE DEVICE? 
F BNEQ = 3 :IF NEQ NO 
O0E BRW REMOTE ; 
$ DEVICE NOT SPOOLED OR ALLOCATED = IF IT°S ALSO NOT SHAREABLE, CHECK THAT 
: PROCESS HAS PRIVILEGE TO ALLOCATE IT 
13 38 AS 19 50$: BBS S*#DEVSV SHR UCBSL_DEVCHAR(RS),70$ ;IF SET, DEVICE SHAREABLE 
FFO?" BSBW = EXE SCHKRBACCES : CHECK USER'S RIGHT TO AE oeate OOEVICE 
: R4 = PCB ADDRESS 
7 R5 = uc ADDRESS 
03 50 BLBS 0,608 SCONTINUE IF SUCCESS 
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sess sR EE BeeetSS1O 70 Comms SERIREE BUSHENG UNDE HRS MO || 
0073 31 f i BRW 908 y1f LBC NO PRIVILEGE 
FF : PERFORM IMPLICIT Asoka th F gets 1 SHA ABLE 
FF : NOTE!! THIS CODE ; THAT NON-SHAR DEVICES A 
FF Be 3 COustéR vist $y8Uy i ate ASSunrT ION toe pee Sultaen Tests 
rr ; AND A CALL TO IOCSLOCK Oey MUST BE ADDED 
FF $ : 
2¢ ; ; FF 60S: Ist yeast PID(RS) i CHECK TO 0 SEE IF IF OWNED 
2c a5 6006 OD f 4 MOVL  PCBSL_PID(R4).UCBSL picks) ss "Ser CURRENT PROCESS AS OWNER 
40¢ ; 
‘ ; ASSOCIATE MAILBOX IF: 
4 $ ; 1. NOT FILE DEVICE 
9 406: ; NOT SH AREABLE DEVICE 
407 : . MAILBOX NOT ALREADY ASSOCIATED 
4 4 : ; 4; MAILBOX " SPECIFIED 
410 ° 
35 38 a5 OF iC ti 70$ BBS S*#DEVSV_FOD,UCBSL -DEVCHAR (RG) 808 yIF SET, FILE DEVICE 
BA 1p E aig BBS S*#DEVSV~SHR,UCBSL~DEVCHAR(RS) .80$ :IF SET. SHARED DEVICE 
56 COD 1341 TSTL Ré ;ARE WE ASSOCIATING A MBX 
sy 15 414 BEQL 80% SIF NOT JUST CONTINUE 
60 AS D 17 415 TSTL $L_AMB(RS) 71S THERE ONE CURRENTLY ASSOC? 
gp 1 1A 41 BEQL :1F NOT ASSOC NEW ONE 
60 aS 56 p} ; iN cAPL R6,UCBSL_AMB(RS) i TRYING TO ASSOC DIFFERENT MBX? 
4 41 MOVZWL #SS$_DEVACTIVE,RO [DON'T DO THE ASSIGN 
teed ij ; 4 ; oon. " $03 7 SRETURN THE ERROR 
A 9 422 75$:  MOVL  R6,UCBSL_AMB(RS) ;SET ASSOCIATED MAILBOX UCB ADDRESS 
9 5 8 Be 4 § INCW uc sy REFC(R6) SINCREMENT MAILBOX UCB REFERENCE COUNT 
56 01 «9A 4 4 MOVZBL #CCBSA_AMB,R6 [SET ASSOCIATED MAILBOX FLAG 
4 6 : If this is the first SASSIGN to a device that is available cluster-wide, 
2 3 : take out a lock to show that this device is active. 
: STW REFC(RS) ;1S THIS THE FIRST CHANNEL ASSIGNED? 
- 2 F é 0 bos BNea geese _ :BR ANCH IF NOT 
4 IFNOCLST Re 8 5 [BRANCH IF WE'RE NOT IN A CLUSTER 
173C aS) 600) «CET «(0140s ‘ BBC ‘BRANCH IF DEVICE IS NOT AVAILABLE 
4 4 i a ,85$ sCLUSTEREUIDE 
0 ‘EF «OD 45 434 MOVL cr [GET ADDRESS OF FaGkusTER BLOCK 
wes : 6 E 4¢ 4 BBC Luss CLUS} ER, SBRANCH I F we HAVEN'T JOINED THE 
[CR MODE FOR CHANNEL ASSIGNS 
vet EHR ee Be st Fata ant VA tote Eten 
6 50 9 5 i 83S BLBC RO. she [BRANCH IF WE DIDN'T GET HH LOCK 
(R8) STOR DRESS IN CCB 
c Re 5 Be ' te - tee Ucouao merce re tess ZINCRE WENT Ue UCB REF RENCE COUNT 
09 a8 Fe “4 i es 44 ADDBS CODE (FP) ),CCB eta STOR i ¢ sm MODE OF CHANNEL 
8 C 446 MOVW RS. ithe ‘Shore wget ht A NUMBER 


"SSEe=198C BS:4B:90 HSYSUSR CHEERS STGncman:1 «P88 3, 


15 
ashlee t/e Cee 1/0 CHANNEL 


a : Be igen 


Make Eng stone Us 


0 1 44 MOVZWL #SS$ Oe Ae ;SET COMPLETION STATUS 
reba" Hi 2 90$: BRw 1OCSONLOC ;UNLOCK 1/0 DATA BASE AND RETURN 
450 ; 
2 3; ASSIGNMENT OF A CLONED UCB 
6 a 
454 CLONE_UCB: 
08 38 AS) «6(0DTCtéCéé#* 4 3 BBC #DEVSV_NET, i; Branch if this device is not a 
cA 4 $ UCBsL BEVCH RAR (RS) 2108 ; network device. 
28A4 BF A 6 MOVZ ass Rows eee : et e, the process must have NET 
17F 64 IFNPR a 3, 3 vilege | to {ay this operation. 
; 459 2108 BSBwW {gcse HKUCBQUOTA : Boes proce av i qnoug ay LM quota? 
re BL 3; Branc neuf} cient BYTLM quota. 
4 3 
4 
4 
4 
4 
4 


‘. Branch clone opeation failed. 
! ASSUME ORBSL_OWNER EQ 0 
1¢ B2 O0BC C&~ DO 4) $ MOVL BucBsC ORB CROs 3 ~ oy pe ours UIC the owner of 
3; the clo 
00 64 A2 10 €2 3) 4 3 BBSS #UCBSV— en ; Mark the cloned UCB for automatic 
oe re uCcBSL_STS(R2 $s r covet on when the ref. count reaches 
04 38 A2 «14~—=«COEN ec 471 213%: BBC - 3 ieee this device neve like a 
A $73 tA DEV CHAR Ra). 215$ ; mailbox? Branch 
68 A2 O02 As Al 47 BISW itd L ; Else, set matiben=tihe’ delete bit. 
A? 47 UCBSW "BEVSTSch2) 
5C A2 B4 A 475 215$: CLRW UCBSW_REFC(R2) :; Zero the einer UCB reference count; 
A $78 ; it will be incremented when the 
A 47 ; channel assignment is completed. 
fe3e" 8 A 273 BSBwW IOCSDEBIT ae ; Debit process quota for cloned UCB. 
53 9988 f 47 mov UCBSL_DOTTR ; Get DDT address. 
1 8 480 MOVZWL #SS$_RORMAL ; Assume success return from driver 
26 B 481 JSB adoTs OHA easy ; Call the driver's cloned UCB routine. 
55 D + 4 ; MOVL aR 3; Make the cloned UCB the gurcent ucB. 
0D E 8 & BLBC ; ; Branch if driver vetos cloni ma. 
05 38 AS EO a 484 BBS #dEvSV_SHR ; Branch if cloning a sharable UCB. 
C 485 UCBSL_BEVCH HAR CRS) 2408 
2c AS) 60 AG p0 C1 4 6 MOVL PCBSL _PID(RG (Ritése _PID(RS) ; Else, do implicit allocation. 
FF4O £6 2 2408: BRW 7 ; Go complete normal channel assignment. 
8 ) co 4 $ 2908 PUSHL RO ; Save reason for aborting cloning oper. 
FE32° C 4 y BSBW JOCSCREDIT_UCB : Credit process ue for cloned UCB. 
FEQF* C 49 BSBW IOCSDELETE_UCB ; Delete cloned 
0 BED D £36 POPL R 3 Restore return stat 
a #1 rhs BRB 908 ; Complete operation : th error status. 
be 495 -DSABL LSB 
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4 7 ~SBTTL REMOTE DEVICE SPECIFIED 
NO_KRP: BUG_CHECK KRPEMPTY, FATAL 
; REMOTE DEVICE SPECIFIED 
; R9 STILL POINTS TO DEVNAM DESC RIpt OR 
: R10 STILL POINTS TO ASSOCIATED MAILBOX DESCRIPTOR 
REMOTE: 
; CASE BLIND FLAG (RS INPUT) FOR LNMSSEARCH_ONE, CONCATENATE "USER-MODE" 
1 ; 
00000103 M_CASE_BLIND = *x0103 
14; 
13 3 KRP USAGE FOR REMOTE LNM TRANSLATION 
90000009 i$ LOGNAM = 0 ;LOGICAL NAME DESCRIPTOR 
4 LNMX_OF FSET = LOGNAM+8 [LOGICAL NAME DATA 
> SINCE THE KRP CONTAINS THE LOGICAL NAME EQUIVALENCE STRING AND THE 
j ; INPUTS TO THE STRNLNM SERVICE, NEED TO MAKE SURE ONE KRP IS ENOUGH. 
4 . ASSUME <LNMX_OFFSET + <LNMXST_XLATION+1> + LNMSC_NAMLENGTH> LE 512 
FE23" 30 $ BSBW CHS 1OUNLOCK ;UNLOCK 1/0 DATA BASE 
SETIPL # TALLOW INTERR 
53 09900000" GF 9E 8 MOVAB GrcTLSGL KRPFL,R3 [GET ADDRESS OF KRP LOOKASIDE LIST 
5 83 F REMQUE a@4(R3),RS :GET A KRP 
D 9 BVS NO_KRP BUG. CHECK IF NO KRPS TO USE 
50 69 g MOVZWL (R9),RO [GET LENGTH OF LOGICAL NAME STRING 
E BEQL ;BRANCH IF ILLEGAL LENG 
ASSUME LNMSC_NAMLENGTH=1 LE 512° ;ASSUME ONE PROBE bite DO 
OOFE 8F 59 1 CMP RO AL #LAMSC_NAMLENGTH-1 :L06 ICAL NAME STRING TOO LONG? 
4 5 BGTR 60% sIF GTR, SIZE TOO LARGE 
51 04 A9 00 6 MOVL 4 (R9),R1 IGET ADORESS OF LOGICAL NAME STRING 
IFNORD RO, (R1),80$ [PROBE INPUT LOGICAL 
33 t TRANSLATE THE NET LOGICAL NAME 
57 OA 00 re . MOVL § #LNMSC_MAXDEPTH,R7 :10 TRANSLATION LIMIT 
56 (OBA p 4g MOVAL the} OFFSET(RB) .R6 ; OUTPUT BUFFER 
4 CLRQ RO)” SINITIALI E LNA 
04 A6 44 MOVB LNMXST_XLATION(R6) INITIAL § RING. LENGTH 
8B 4 PUSHR res 7SAVE PCB 
61 § 46 MOVC3 RO,(R1),- [COPY INITIAL STRING TO LNMX 
OS A 4 <LNMXSTXLATION#1>(R6)  ; 
1 BA 48 POPR #*M<R4> : RESTORE PCB 
002 1 4 BRW 30$ STAKE FIRST STAB AT TRANSLATI 
? SLOGICAL NAME DESCR 1PTOR IN RO/R1 
FDEO CF 3¢ 10$ MOVZWL LNM unt TBL, R2 GET TABLE NAME LENGTH 
FDDE cf p : HOV LNM"TBL#+4,R3 SAND TAB NAME ADDRESS 
0103 BF 3¢ MOV2wL #M_CASE_BLIND.RS SCASE-BLIND TRANSLATION, USER-MODE 


voe-000-™ 


REROT 


TEM SER 
MOTE DEVIC 


PAA 
DRI UE Sas TREE ome RAISON TAS LASS Noe ee 
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¢ 208: 


30$: 


408: 


50$: 
? 
i i: 
26 B08: 
4 90$: 
’ 
: 
5 
$ 
: 
1 
38 
34 1008: 
36 1108: 
1208: 
i 


se i EARCH ONE : TRANSLATE LOG! ICAL NAME 

BLBS :BRAN HI ANSLATION OCCURED 
CMP Siu RO TRANSLA ION F FAILURE? 

BNEQ s SERIOU PROBLEM 

BBCS io $M ATE NO MORE TRANSLATIONS 


Vel ace iney “30 
MOVAL cH T re eEiometssR6). -: RESET T LOGICAL NAME DESCRIPTOR 


MOVZBL LNMXST XLATION(RG) .RO : tote 
#*A/_/7(R1) i TRANSLATED NAME START WITH UNDERSCORE? 
BNEQ 508 F NEG NO 


DECL =o SECREMENT LENG TH OF TR TRANSLATED NAME 
BEQL ‘ $ BRANCH IF tENG 
INC INCREMENT $ ARTING Se oatss we 
BBC ALwnsv TERMI STERMINAL DUE TO PRESEN NCE OF of, on. 
NAXSB FL F AGS (RG “408 i LOOK FOR ANOTHE 
BBS ann hi RINAL 31 DONE, GO ASSIGN CHANNEL 
LNMXSB_ Flags: R6) .90$ 
SOBGEQ ?KEEP ON TRANSLATING 
BRB :00PS, TOO MANY TRANSLATIONS 
MOVZUL 1 1VLOGNAM, RO SINPUT SIZE TO LARGE 
MOV ZL i ACCVIO,RO ;CAN NOT READ WHERE DESC POINTS 
mOVa LOGNAM( RB) ; SAVE DESCRIPTOR IN A BETTER PLACE 
MOVAL LOGNAR [SET ADDRESS OF TRANSLATED NAME DESCRIPTOR 
PUSHAB NET NAR BUILD NETWORK DEVICE NAME DESCRIPTOR 
PUSHL #@NE TEND-NETNAM 
mov SPR i SAVE ADDRESS OF STRING DESCRIPTOR 
VAL (§P) thio ATE agence TO STORE CHANNEL NUMBER 
Bass GN $ (R as" TR?) JMAXACMODE (FPS~ (R SIGN CHANNEL TO NETWORK 
BL aC “R $ - fF igs aNMENT F AIL 
Q1OW_S S*#EXESC_SYSEFN, (R7) mos ACCESS! 10 ACCES $, in Yeve eR 
sCONNECT TO NETWOR 
BLBC = RO, 110 SIF LBC SERVICE FAILURE 
MOVZWL (Rb) .R :GET 1/0 € OMPLETION CO CODE 
BLBC 6 TIF LBC CONNECT FAILURE 
MOVW tht (R11) ZSTORE ASSIGNED DEVICE CHANNEL NUMBER 
MOV ZL fit REMOTE ,RO [SET COMPLETION STATUS 
MOVZWL # ' $$_TOOMANYLNAM, RO 3100 MANY EQUIVALENCE NAMES DEFINED 
PUSHL R 'SAVE FINAL STATUS 
SDASSGN_S (R7) [DEASSIGN CHANNEL 
POPL “RO SRETRIEVE FINAL STATUS 
sONLY REMAINI WORK = RETURN KRP 
[RB STILL POINTS TO KRP 
MOVAB G°CTLSGL KRPFL,R3 [GET ADDRESS OF KRP LOOKASIDE LIST 
a (RB) ,a4(R3) sRETURN KRP TO LIST 
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~SBTTL TEST IF MAILBOX SPECIFIED 


RU = SSS_NORMAL IF SPECIFIED MAILBOX EXISTS 
33 NOSU 4 : att MAILBOX DOES NOT EXIST 


Y D DEVICE IS NOT A MAILBOX 
R6 = ADDRESS OF MAILBOX UCB 
ZERO IF MAILBOX NOT SPECIFIED (USED AS CHANNEL STATUS FLAGS) 


MOVL R10.R6 
BEQL 10 
R6,R1 
BSBu I é SEARCHDEV 
MOVZWL  #$$ DEVNOTMBX RO 
“#DEVSV_MBX ,UCBSL_DEVC 
S*#DEVSV_NET -UCBSL ~DEVC 


R1,R 3S 
#S§$_NORMAL RO 3S 


a DESCRIPTOR 
LBOX NAME DESCRIPTOR 


mse RAR AA AAs eles leslaslas les lasl asl asl asl asl asl es las alles asl 
DMD OWA HAHN HIN MAMMA NA 


un 

co 

we 
3 
< 
se 
= 


MEW $9 ODNAUE WH OOOO 


K 15 
ste = avon seme sasin 170 cms” AH BS POTENT Th 
= 


$$T1 = 1 M CASE BLIND 0 9 
ACRODE 2 C NETEN 0 8 
BUGS_KRPEMPTY eeereree Xx 02 NE TNAM D( 148 
ceeeemers . ORES. OWNER Df 09 : 
= Ss ve 

CCBSL_UCB = PCBBL -DUNER 5 D6 
CCBSA_AMB 2 PCBSL_PID = 0¢ 6 
CHAN = PCBSL_UIC = 00 
CLONE _UCB 08 pcesa PRIV = 0 
CL mat genrenere , PRS_IPL 2 OC Z 
CLUBSL_FLAGS = 1 PRVSV_NETMBX = 00 1 
cL SV-CLUSTER = PRVSV_PHY_10 = Q 

y KRPFL eeeeeree xX 02 PRVSV-SHAR = 
DDTSL_CLONEDUCB 2 4 REROTE p DAR 02 
DEVSV-CLU = SAVABS... = FFEFFFFC 
DEV$V_FOD = SCHSGL_PCBVEC eeeerere xX 
DEVSV_MBX s SCHSIOCOCKW eeeeeeee §6X 
DEVSV_NET = BES tou OCK eeeeeree 8 
DEVSV_RED 2 S38_ACCV 0 z 0c 
DEVSV_SHR = SS$_DEVACTIVE = C4 
DEVSV~SPL s SS$-DEVALLOC 2 40 
DEVSV"SSM = SS$_DEVNOT = 74 
DEVNAA = SS$_IVDEVNAM = 44 
DIR... = FFFFFFFF SS$_ I VLOGNA = 154 
EXESASSIGN 00000018 RG 5S$"NOLOGN 2 18¢ 
EXESCHKRDACCES eeereeee xX $S$_NONE TMBX = A4 
EXESC_SYSEFN eeneeeee x SS$$_NONLOCAL = FO 
EXE SMAX eeereere § xX SS$_NOPHY_10 2 4 
PREEC a SS$_NORMAC = 001 
1 ACCESS = 4 SS$_REMOTE = 49 
10$_ACCESS s 0003 $S$~ TOOMANYLNAM = 0374 
1OCSCHKUCBQUOTA eeeeeeee x SYSSASSIGN eeeneeee GX 
1OCSCLONE_UCB eeeeeeee § 6X SYSSDASSGN eeeeenee GX 
LOCSCREDIT UCB eeeeeeee x SYS$Q10W aeeeeeee GX 
10C$peB1T _0cB eeneeree 8 TEST MAILBOX Es R 
IOCSDELETE_uCcB eeeeeree x UCBSC_AMB = 
1OCSF F CHAN eeeeeeee 8 6X UCBSL_DDT = 
1OC$LOCK_DEV eeereeee x UCBSL_DEVCHAR = 
1OCSM_ANY s 0 UCBSL_DEVCHAR2 = C 
1OCSM~ PHY = 01 UCBS$L_ORB 2 C 
1OCSSEARCH eeneeeee xX UCBSL_PID s ef 
ILOCSSEARCHDEV eeeeeere § UCBSL_STS = 
IOCSUNLOCK eeereeee =X UCB$L_TT_LOGUCB = 
1OC$V_NO_TRANS = UCBSA_DECRBX s 
LCKSK"C E = 1 UCB$V-DELETEUCB 2 
LNMSC_MAXDEPTH = UCBSV~ TEMPLATE s 4) 
LNMSC”NAMLENGTH = FF UCBSW_DEVSTS s ° 
LNMSSEARCH_ONE eeeeeree =X 602 UCBSW_REFC = 0000005C 
LNMX$B_FLAGS 
LNMXS$T_XLATION 
LNMXS$V~ TERMINAL 
LWA OFFSET 
tBCRL 63 
MAXACMODE Seer 

ty a = 0000001 
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SYSASSIGN 
Psect synopsis 


PSECT name 


a 
$aBS 
YSEXEPAGE 


Phase 
Initialization 
processing 


Pass 

Pass. ¢ table sort 
Pass 

Symbol table output 
Psect synopsis output 


Cross-reference output 
Assembler run totals 


Th rking set_Limit was 1800 pages. 
te 209 te (539 pages) of virtust memory w 


byte 


15 . 
= SYSTEM SERVICE ASSIGN 1/0 CHANNEL NErSER= 198s Bh:8:07 yancves f SEkst teu cnan:1 Page td v0 


Ponte t ee ewe meme tH 


! Psect synopsis ! 


Goeeooeoeeceeoecoeoes} 


Allocation PSECT No. Attributes 


00000000 .) 00 ¢ 0.) NOPIC  USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOV 
> Ore 42 €ON ABS LCL E NO 
775:) 02¢ 22) NOPIC USR CON REL LCL 


See eeeceooeeseeeeeooceesoos} 


! Performance indicators ! 


ee en 


oppo SOF 
00000307 < 


a Tee sana 
EEE Bee 
80 00: 5 3 if : 


used to buffer the intermediate c 


ere de. 
re were 130 pages of syabot table space a Leceree © hold 2355 non-local and rai local symbols. 
ng 


635 source Lines were read 


Pass 1. produ object records in Pass 2. 


44 pages of virtual memory were used to define 42 macros. 


Macro Library name 


bene enw eee ee ee ee et eee wm eee 


! Macro Library statistics ! 


Pew ewe nee ree ween ce eccae es 


Macros defined 


ERS TE PRUE: Ei i 


TOTALS (all Libraries) 


2617 GETS were required to define 39 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:SYSASSIGN/OBJ=0BJ$:SYSASSIGN MSRC$:SYSASSIGN/UPDATE=(ENHS: SYSASSIGN) +EXECMLS/LIB 
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